library(readxl)
Goodnessfit <- read_excel("~/SEMESTER II/PROBABILITY AND STATISTICS DATA ANALYSIS/ASSIGNMENT & PROJECT/PROJECT 2/Project 2 PSDA/Goodnessfit.xlsx")
View(Goodnessfit)
library(readxl)
Goodnessfit <- read_excel("~/SEMESTER II/PROBABILITY AND STATISTICS DATA ANALYSIS/ASSIGNMENT & PROJECT/PROJECT 2/Project 2 PSDA/Goodnessfit.xlsx")
View(Goodnessfit)
x<-c(Goodeness$Male)
x<-c(Goodness$Male)
x<-c(Male)
x = Goodnessfit$Male
chisq.test(x,p)
x = Goodnessfit$Male
chisq.test(x)
chisq$observed
chisq$estimated
x = Goodnessfit$Male
res <-chisq.test(x)
res$observed
res$estimated
Goodnessfit <- read_excel("~/SEMESTER II/PROBABILITY AND STATISTICS DATA ANALYSIS/ASSIGNMENT & PROJECT/PROJECT 2/Project 2 PSDA/Goodnessfit.xlsx")
View(Goodnessfit)
x = Goodnessfit$Male
res <-chisq.test(x)
res$observed
res <-chisq.test(x)
res
res$observed
res$estimated
x = Goodnessfit$Male
res <-chisq.test(x)
res
res$observed
res$expected
res$p.value
library(readxl)
Goodnessfit <- read_excel("~/SEMESTER II/PROBABILITY AND STATISTICS DATA ANALYSIS/ASSIGNMENT & PROJECT/PROJECT 2/Project 2 PSDA/Goodnessfit.xlsx")
View(Goodnessfit)
#calculation
x = Goodnessfit$Male
res <-chisq.test(x)
res
res$observed
res$expected
res$p.value
alpha <-0.05
x2.alpha<-qchisq(alpha, df=1,lower.tail=FALSE)
x2.alpha
alpha <-0.05
x2.alpha<-qchisq(alpha, df=11,lower.tail=FALSE)
x2.alpha
#calculation
x = Goodnessfit$Male
res <-chisq.test(x)
res
res$observed
res$expected
res$p.value
alpha <-0.05
x2.alpha<-qchisq(alpha, df=11,lower.tail=FALSE)
x2.alpha
